Komputer for Alle 2001 #1/Cd 1 (black) - 2001.iso/K-CS.dcr/00523.ls

Text File | 2000-11-15 | 432 b | 19 lines

global BlinkObjekt, taeller

on new me
  set taeller to the ticks
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink")
end

on exitFrame
  checkBlink(BlinkObjekt)
  if ((the ticks - taeller) / 50) > 32 then
    set taeller to the ticks
  end if
  set newSprite to 925 - ((the ticks - taeller) / 50)
  set the member of sprite 105 to member newSprite of castLib "VConst"
  go(#loop)
end